Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/MOVIES/STARMAP.DIR/00005_Script_inkxxx

Text File | 1995-11-16 | 612b | 33 lines

property  myChannel, myScript

on birth me, sp,sc
  set myChannel to integer(sp)
  set myScript to sc
  return me
end

--change appearance
on norm me
  puppetSprite myChannel,TRUE
  set the ink of sprite myChannel to 5
  updateStage
  puppetSprite myChannel, false
end

on rollo me
  puppetSprite myChannel,TRUE
  set the ink of sprite myChannel to 37
  updateStage
  -- puppetSprite myChannel, false
end

on press me
--  puppetSprite myChannel,TRUE
--  set the ink of sprite myChannel to 34
--  updateStage
--  puppetSprite myChannel, false
end

on doScript me
  do myScript
end